function hx = punto_fijo(f,x0,e,m);

	xk_1 = x0
	hx = [xk_1]
   		
	
	xk = g(f,xk_1);
    hx = [hx,xk]
    k = 0
    
    while(abs(xk - xk_1) > e && k < m)

		xk_1 = xk;
		hx = [hx,xk];
    	xk = g(f,xk_1);
		++k;

    endwhile
    
endfunction

%opcion 1 para f(x)= 2*x -tan(x)
function [x  df] = g(functionName,x)

		if (strcmp(functionName,'f1'))
			z = 2
			x = sqrt(5*x -3)
			df = 5/(2*sqrt(5*x -3))

		elseif (strcmp(functionName,'f2'))
			x = atan(2*x)
			df = 1
		else
			x = 1; % nose que poner aca
			df = 1
		end

end

%opcion 2 para f(x)= 2*x -tan(x)
function x = g2(x)
		x = tan(x)/2;
end



